home *** CD-ROM | disk | FTP | other *** search
/ EuroCD 3 / EuroCD 3.iso / Programming / SecalDemo / Inc / tagcalls / graphics.inc < prev    next >
Text File  |  1998-06-24  |  2KB  |  82 lines
  1. pattern AllocSpriteData(_bm, ...) is
  2.     push a2\a6;
  3.     push.l ...;
  4.     safe a2:=_bm; a1:=sp;;
  5.     a6:=GfxBase; jsr [a6-1020];
  6.     sp:=sp+countof(...)<<2;
  7.     pop a2\a6;
  8. endp;                                                            # ALLOCSPRITEDATA
  9.  
  10. pattern BestModeID( ...) is
  11.     push a6;
  12.     push.l ...;
  13.     a0:=sp;
  14.     a6:=GfxBase; jsr [a6-1050];
  15.     sp:=sp+countof(...)<<2;
  16.     pop a6;
  17. endp;                                                            # BESTMODEID
  18.  
  19. pattern ChangeExtSprite(_vp,_oldsprite,_newsprite, ...) is
  20.     push a2\a3\a6;
  21.     push.l ...;
  22.     safe a0:=_vp; a1:=_oldsprite; a2:=_newsprite; a3:=sp;;
  23.     a6:=GfxBase; jsr [a6-1026];
  24.     sp:=sp+countof(...)<<2;
  25.     pop a2\a3\a6;
  26. endp;                                                            # CHANGEEXTSPRITE
  27.  
  28. pattern ExtendFontTags(_font, ...) is
  29.     push a6;
  30.     push.l ...;
  31.     safe a0:=_font; a1:=sp;;
  32.     a6:=GfxBase; jsr [a6-816];
  33.     sp:=sp+countof(...)<<2;
  34.     pop a6;
  35. endp;                                                            # EXTENDFONTTAGS
  36.  
  37. pattern GetExtSprite(_ss, ...) is
  38.     push a2\a6;
  39.     push.l ...;
  40.     safe a2:=_ss; a1:=sp;;
  41.     a6:=GfxBase; jsr [a6-930];
  42.     sp:=sp+countof(...)<<2;
  43.     pop a2\a6;
  44. endp;                                                            # GETEXTSPRITE
  45.  
  46. pattern GetRPAttrs(_rp, ...) is
  47.     push a6;
  48.     push.l ...;
  49.     safe a0:=_rp; a1:=sp;;
  50.     a6:=GfxBase; jsr [a6-1044];
  51.     sp:=sp+countof(...)<<2;
  52.     pop a6;
  53. endp;                                                            # GETRPATTRS
  54.  
  55. pattern ObtainBestPen(_cm,_r,_g,_b, ...) is
  56.     push d2\d3\a6;
  57.     push.l ...;
  58.     safe a0:=_cm; d1.l:=_r; d2.l:=_g; d3.l:=_b; a1:=sp;;
  59.     a6:=GfxBase; jsr [a6-840];
  60.     sp:=sp+countof(...)<<2;
  61.     pop d2\d3\a6;
  62. endp;                                                            # OBTAINBESTPEN
  63.  
  64. pattern SetRPAttrs(_rp, ...) is
  65.     push a6;
  66.     push.l ...;
  67.     safe a0:=_rp; a1:=sp;;
  68.     a6:=GfxBase; jsr [a6-1038];
  69.     sp:=sp+countof(...)<<2;
  70.     pop a6;
  71. endp;                                                            # SETRPATTRS
  72.  
  73. pattern VideoControlTags(_colorMap, ...) is
  74.     push a6;
  75.     push.l ...;
  76.     safe a0:=_colorMap; a1:=sp;;
  77.     a6:=GfxBase; jsr [a6-708];
  78.     sp:=sp+countof(...)<<2;
  79.     pop a6;
  80. endp;                                                            # VIDEOCONTROLTAGS
  81.  
  82.